home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / gs24src.zip / ALPHABET.PS < prev    next >
Text File  |  1992-03-15  |  472b  |  19 lines
  1. (Courier) findfont 10 scalefont setfont
  2. currentfont 1.5 scalefont setfont
  3. /sp ( !"#$%&'\(\)*+,-./  [[\\\\]]^^__  `{|}~) def
  4. /sd (001122334456789<=>:;?@) def
  5. /smaj (ABCDEFGHIJKLMNOPQRSTUVWXYZ) def
  6. /smin (abcdefghijklmnopqrstuvwxyz) def
  7.  
  8.     (aA) true setdebug
  9.     /sp ( ) def /sd (=) def /smaj (I) def /smin (l) def
  10. 20 0 moveto
  11. 4 {
  12. [ sp sd smaj smin ]
  13.  { 0 15 rmoveto gsave show grestore
  14.    vmstatus pstack clear flush
  15.  } forall
  16. 1.6 1.6 scale
  17. } repeat
  18. showpage
  19.